object fmSerKarNoAta: TfmSerKarNoAta
  Left = 109
  Top = 162
  Width = 818
  Height = 491
  Caption = 'Kargo Aktar'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 810
    Height = 464
    ActivePage = tabExpress
    Align = alClient
    TabOrder = 0
    object tabYK: TTabSheet
      Caption = 'Yurt '#304#231'i Kargo Aktar'
      object Label1: TLabel
        Left = 8
        Top = 40
        Width = 49
        Height = 14
        Caption = 'Dosya Ad'#305
      end
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 23
        Height = 14
        Caption = 'Tarih'
      end
      object Bevel1: TBevel
        Left = 64
        Top = 240
        Width = 729
        Height = 2
      end
      object Listek: TMemo
        Left = 64
        Top = 56
        Width = 729
        Height = 177
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        WordWrap = False
      end
      object Memo1: TMemo
        Left = 64
        Top = 248
        Width = 729
        Height = 137
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        WordWrap = False
      end
      object byurticiaktar: TButton
        Left = 64
        Top = 392
        Width = 105
        Height = 25
        Caption = 'Yurt '#304#231'i Kargo Aktar'
        TabOrder = 2
        OnClick = byurticiaktarClick
      end
      object Tarihk: TwwDBDateTimePicker
        Left = 64
        Top = 8
        Width = 121
        Height = 22
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        Epoch = 1950
        ReadOnly = True
        ShowButton = True
        TabOrder = 3
      end
      object dosyaadik: TEdit
        Left = 64
        Top = 32
        Width = 305
        Height = 22
        TabOrder = 4
        Text = 'c:\kargo\x1'
      end
      object bkapat: TButton
        Left = 716
        Top = 392
        Width = 75
        Height = 25
        Caption = 'Kapat'
        TabOrder = 5
        OnClick = bkapatClick
      end
      object bfaturanoduzelt: TButton
        Left = 176
        Top = 392
        Width = 107
        Height = 25
        Caption = 'Fatura no d'#252'zelt'
        TabOrder = 6
        Visible = False
        OnClick = bfaturanoduzeltClick
      end
    end
    object tabExpress: TTabSheet
      Caption = 'Express Kargo Aktar'
      ImageIndex = 1
      object Label3: TLabel
        Left = 8
        Top = 48
        Width = 49
        Height = 14
        Caption = 'Dosya Ad'#305
      end
      object Label4: TLabel
        Left = 8
        Top = 24
        Width = 23
        Height = 14
        Caption = 'Tarih'
      end
      object Bevel2: TBevel
        Left = 64
        Top = 240
        Width = 729
        Height = 2
      end
      object expresstarihk: TwwDBDateTimePicker
        Left = 64
        Top = 16
        Width = 121
        Height = 22
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        Epoch = 1950
        ShowButton = True
        TabOrder = 0
      end
      object expressdosyaadik: TEdit
        Left = 64
        Top = 40
        Width = 297
        Height = 22
        TabOrder = 1
        Text = 'c:\kargo\express.xls'
      end
      object StringGrid1: TStringGrid
        Left = 64
        Top = 67
        Width = 729
        Height = 166
        ColCount = 7
        DefaultColWidth = 100
        FixedCols = 0
        FixedRows = 0
        TabOrder = 2
      end
      object bexpressaktar: TBitBtn
        Left = 64
        Top = 392
        Width = 121
        Height = 25
        Caption = 'Express Kargo Aktar'
        TabOrder = 4
        OnClick = bexpressaktarClick
      end
      object Button2: TButton
        Left = 720
        Top = 392
        Width = 75
        Height = 25
        Caption = 'Kapat'
        TabOrder = 5
        OnClick = bkapatClick
      end
      object Memo2: TMemo
        Left = 64
        Top = 248
        Width = 729
        Height = 137
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        WordWrap = False
      end
    end
  end
  object irsaliyebulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'unityirsaliyeno'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select top 1 belgeno from fatura'
      'where unityirsaliyeno=:unityirsaliyeno')
    Left = 480
    Top = 24
  end
  object SiparisGuncelleQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 552
    Top = 24
  end
  object UnitySiparisQ: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'LOGICALREF'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      '')
    Left = 752
    Top = 24
  end
  object SiparisQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT unityid,belgeno,unityfaturano,unityirsaliyeno FROM FATURA'
      
        'where bilisno>479000 and unityid is not null and faturatipi=8 or' +
        'der by unityid'
      ''
      '')
    Left = 616
    Top = 24
  end
  object MaxBilisNoQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 672
    Top = 24
  end
  object SiparisGuncelleWebQ: TADOQuery
    Connection = dm.Connect_Web
    Parameters = <>
    Left = 544
    Top = 168
  end
end
